object sf_com_HuaJia: Tsf_com_HuaJia
  OldCreateOrder = False
  OnCreate = SoapDataModuleCreate
  Height = 432
  Width = 759
  object dmcPublic: TDCOMConnection
    ServerGUID = '{7978FC30-6BFF-4744-9684-E5EE24EC8AB5}'
    ServerName = 'mzsf_dll_logic.FeePublic'
    Left = 16
    Top = 8
  end
  object dmccharge: TDCOMConnection
    ServerGUID = '{7D762395-006A-41D1-B42C-985CB7DD0E2C}'
    ServerName = 'mzsf_dll_data.mz_charge_detail'
    Left = 16
    Top = 64
  end
  object cdsChargeDetail: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    PacketRecords = 10
    Params = <
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
        Value = '11'
      end
      item
        DataType = ftInteger
        Name = 'times'
        ParamType = ptInput
        Value = '0'
      end
      item
        DataType = ftString
        Name = 'charge_status'
        ParamType = ptInput
        Value = '2'
      end>
    ProviderName = 'dspMz_Charge_Detail'
    RemoteServer = dmccharge
    Left = 96
    Top = 64
    object cdsChargeDetailtotal: TAggregateField
      FieldName = 'total'
      Active = True
      Expression = 'sum(orig_price*charge_amount*caoyao_fu)'
    end
  end
  object dmcFeeDict: TDCOMConnection
    ServerGUID = '{7472D0D0-5F3F-47D3-902E-FAFF845C656B}'
    ServerName = 'mzsf_dll_logic.FeeDict'
    Left = 24
    Top = 128
  end
  object cdsChargePercent: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'pay_unit'
    Params = <
      item
        DataType = ftString
        Name = 'responce_group'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'charge_group'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'type_code'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'happen_date'
        ParamType = ptInput
      end>
    ProviderName = 'dspmz_pay_charge_percent'
    RemoteServer = dmcFeeDict
    Left = 184
    Top = 128
  end
  object dcmMzReceipt: TDCOMConnection
    ServerGUID = '{849C69A4-A7E2-4A50-BF5C-414C2D4EC990}'
    ServerName = 'mzsf_dll_data.mz_receipt'
    Left = 24
    Top = 192
  end
  object dmcreceipt_charge: TDCOMConnection
    ServerGUID = '{E6EF0861-2975-42A6-B379-EB36994E0DB2}'
    ServerName = 'mzsf_dll_data.mz_receipt_charge'
    Left = 24
    Top = 256
  end
  object cdsReceiptCharge: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspmz_receipt_charge'
    RemoteServer = dmcreceipt_charge
    Left = 120
    Top = 256
    object cdsReceiptChargepatient_id: TStringField
      FieldName = 'patient_id'
      FixedChar = True
      Size = 12
    end
    object cdsReceiptChargeledger_sn: TSmallintField
      FieldName = 'ledger_sn'
    end
    object cdsReceiptChargereceipt_sn: TIntegerField
      FieldName = 'receipt_sn'
    end
    object cdsReceiptChargebill_code: TStringField
      FieldName = 'bill_code'
      FixedChar = True
      Size = 3
    end
    object cdsReceiptChargecharge: TFloatField
      FieldName = 'charge'
    end
    object cdsReceiptChargepay_unit: TStringField
      FieldName = 'pay_unit'
      FixedChar = True
      Size = 2
    end
  end
  object cdsBillPercent: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pay_unit'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'responce_group'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'bill_code'
        ParamType = ptInput
      end>
    ProviderName = 'dspBillPercent'
    RemoteServer = dmcFeeDict
    Left = 272
    Top = 128
  end
  object cdsPayUnit: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPayUnit'
    RemoteServer = dmcFeeDict
    Left = 104
    Top = 128
    object cdsPayUnitcode: TStringField
      FieldName = 'code'
      FixedChar = True
      Size = 2
    end
    object cdsPayUnitname: TStringField
      FieldName = 'name'
      Size = 32
    end
    object cdsPayUnitpy_code: TStringField
      FieldName = 'py_code'
      Size = 8
    end
    object cdsPayUnitd_code: TStringField
      FieldName = 'd_code'
      Size = 8
    end
  end
  object cdsMzReceipt: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'patient_id'
        Attributes = [faFixed]
        DataType = ftString
        Size = 12
      end
      item
        Name = 'ledger_sn'
        DataType = ftSmallint
      end
      item
        Name = 'receipt_sn'
        DataType = ftInteger
      end
      item
        Name = 'pay_unit'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'charge_total'
        DataType = ftFloat
      end
      item
        Name = 'charge_status'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'cash_date'
        DataType = ftDateTime
      end
      item
        Name = 'cash_opera'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'windows_no'
        DataType = ftSmallint
      end
      item
        Name = 'report_date'
        DataType = ftDateTime
      end
      item
        Name = 'receipt_no'
        DataType = ftString
        Size = 18
      end
      item
        Name = 'mz_dept_no'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'group_date'
        DataType = ftDateTime
      end
      item
        Name = 'contract_code'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'responce_type'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'zengquan_no'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'serial_no_zz'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'print_date_zz'
        DataType = ftDateTime
      end
      item
        Name = 'print_flag_zz'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'print_id_zz'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'print_bill'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'receipt_no_zz'
        DataType = ftString
        Size = 12
      end>
    IndexDefs = <>
    Params = <
      item
        DataType = ftString
        Name = 'patient'
        ParamType = ptInput
        Value = '11'
      end
      item
        DataType = ftSmallint
        Name = 'ledger_sn'
        ParamType = ptInput
        Value = '-1'
      end>
    ProviderName = 'dspReceiptForFee'
    RemoteServer = dcmMzReceipt
    StoreDefs = True
    Left = 112
    Top = 192
    object cdsMzReceiptpatient_id: TStringField
      FieldName = 'patient_id'
      FixedChar = True
      Size = 12
    end
    object cdsMzReceiptledger_sn: TSmallintField
      FieldName = 'ledger_sn'
    end
    object cdsMzReceiptreceipt_sn: TIntegerField
      FieldName = 'receipt_sn'
    end
    object cdsMzReceiptpay_unit: TStringField
      FieldName = 'pay_unit'
      Size = 2
    end
    object cdsMzReceiptcharge_total: TFloatField
      FieldName = 'charge_total'
    end
    object cdsMzReceiptcharge_status: TStringField
      FieldName = 'charge_status'
      FixedChar = True
      Size = 1
    end
    object cdsMzReceiptcash_date: TDateTimeField
      FieldName = 'cash_date'
    end
    object cdsMzReceiptcash_opera: TStringField
      FieldName = 'cash_opera'
      Size = 5
    end
    object cdsMzReceiptwindows_no: TSmallintField
      FieldName = 'windows_no'
    end
    object cdsMzReceiptreport_date: TDateTimeField
      FieldName = 'report_date'
    end
    object cdsMzReceiptreceipt_no: TStringField
      FieldName = 'receipt_no'
      Size = 12
    end
    object cdsMzReceiptmz_dept_no: TStringField
      FieldName = 'mz_dept_no'
      FixedChar = True
      Size = 1
    end
    object cdsMzReceiptgroup_date: TDateTimeField
      FieldName = 'group_date'
    end
    object cdsMzReceiptcontract_code: TStringField
      FieldName = 'contract_code'
      Size = 6
    end
    object cdsMzReceiptzengquan_no: TStringField
      FieldName = 'zengquan_no'
      Size = 100
    end
    object cdsMzReceiptresponce_type: TStringField
      FieldName = 'responce_type'
      FixedChar = True
      Size = 2
    end
  end
  object cdsTempSelfMoney: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 547
    Top = 240
  end
  object cdsChargeFlagType: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'infant_flag'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'self_flag'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'emergency_flag'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'ope_flag'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'fiting_flag'
        ParamType = ptInput
      end>
    ProviderName = 'dspChargeFalgType'
    RemoteServer = dmcFeeDict
    Left = 360
    Top = 130
  end
  object cdsRCForBP: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 208
    Top = 256
  end
  object cdsDetailTemp: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 176
    Top = 64
  end
  object cdsDetailStatus2: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
      end>
    ProviderName = 'dspDetailTally'
    RemoteServer = dmccharge
    Left = 264
    Top = 64
  end
  object cdsTotalPercent: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'pay_unit'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'responce_group'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'method1'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'method2'
        ParamType = ptInput
      end>
    ProviderName = 'dspTotalPercent'
    RemoteServer = dmcFeeDict
    Left = 456
    Top = 128
  end
  object cdsPatientTotalCharge: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pay_unit'
        ParamType = ptInput
      end>
    ProviderName = 'dspPatientTotalCharge'
    RemoteServer = dmcFeeDict
    Left = 544
    Top = 128
  end
  object cdsTempReceipt: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 376
    Top = 192
  end
  object cdsTempReceiptCharge: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 480
    Top = 192
  end
  object cdsTempReceiptCharge1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 616
    Top = 192
  end
  object dcmMzVisitTable: TDCOMConnection
    ServerGUID = '{A51E9EC4-244D-42E2-A975-5F137172AA63}'
    ServerName = 'mzsf_dll_data.mz_visit_table'
    Left = 32
    Top = 320
  end
  object cdsVisittableBal: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'times'
        ParamType = ptInput
      end>
    ProviderName = 'dspVisittableBal'
    RemoteServer = dcmMzVisitTable
    Left = 120
    Top = 320
  end
  object dcmMzPatientMi: TDCOMConnection
    ServerGUID = '{506C3425-FB13-4D5D-A003-67498FF43568}'
    ServerName = 'mzsf_dll_data.mz_patient_mi'
    Left = 32
    Top = 376
  end
  object dcmMzDeposit: TDCOMConnection
    ServerGUID = '{D2E212D1-026F-478B-9F5C-1593714540E8}'
    ServerName = 'mzsf_dll_data.mz_deposit'
    Left = 32
    Top = 432
  end
  object cdsTotalDeposit: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'patient_id'
        ParamType = ptInput
      end>
    ProviderName = 'dspTotalDeposit'
    RemoteServer = dcmMzDeposit
    Left = 128
    Top = 432
  end
  object cdsMzConfig: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspMzConfig'
    RemoteServer = dmcFeeDict
    Left = 552
    Top = 296
  end
  object cdsYJJBalance: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftFloat
        Name = 'subcharge'
        ParamType = ptInput
        Value = 10
      end
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
        Value = '000000000185'
      end>
    ProviderName = 'dspYJJBalance'
    RemoteServer = dcmMzPatientMi
    Left = 224
    Top = 376
  end
  object cdsMzPatientMiBal: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'patient_id'
        ParamType = ptInput
      end>
    ProviderName = 'dspMzPatientMiBal'
    RemoteServer = dcmMzPatientMi
    Left = 128
    Top = 376
  end
  object dmcMzSoufei: TDCOMConnection
    ServerGUID = '{01A62078-AB56-4F32-AC91-33AFB9D88E7D}'
    ServerName = 'mzsf_dll_logic.MzSouFei'
    Left = 104
    Top = 8
  end
  object cdsMultReceipt: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 192
  end
  object cdsMultReceiptCharge: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 304
    Top = 256
  end
  object cdsMultDetail: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 440
    Top = 64
  end
  object cdsGroupExecBill: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 360
    Top = 64
  end
  object cdsDetailResult: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 528
    Top = 64
  end
  object cdsReceiptTemp: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 288
    Top = 192
  end
  object cdsReceiptChargeTemp: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 432
    Top = 256
  end
  object cdsYbGroupBill: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 552
    Top = 352
  end
  object cdsYbDetail: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 600
    Top = 64
  end
  object cdsTmp: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 440
    Top = 16
    Data = {
      380000009619E0BD01000000180000000100000000000300000038000962696C
      6C5F636F646501004900000001000557494454480200020003000000}
    object cdsTmpbill_code: TStringField
      FieldName = 'bill_code'
      Size = 3
    end
  end
  object cdsResponceGroup: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 656
    Top = 128
  end
  object dcmMzOrdertype: TDCOMConnection
    ServerGUID = '{3B241041-17C8-4FB4-A6A6-A9484196AC61}'
    ServerName = 'mzsf_dll_data.mz_zd_order_type'
    Left = 32
    Top = 496
  end
  object cdsMzOrderType: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspMz_zd_order_type'
    RemoteServer = dcmMzOrdertype
    Left = 120
    Top = 496
  end
  object cdsCountryPercent: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 544
    Top = 408
    object cdsCountryPercentpay_unit: TStringField
      FieldName = 'pay_unit'
      Size = 2
    end
    object cdsCountryPercentpercent: TFloatField
      FieldName = 'percent'
    end
    object cdsCountryPercentreceipt_sn: TIntegerField
      FieldName = 'receipt_sn'
    end
  end
  object cdsCountrybillcharge: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 544
    Top = 464
    object cdsCountrybillchargebill_code: TStringField
      FieldName = 'bill_code'
      Size = 3
    end
    object cdsCountrybillchargecharge: TFloatField
      FieldName = 'charge'
    end
  end
  object cdsOrderPrint: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspOrderPrint'
    RemoteServer = dcmMzconfig
    Left = 448
    Top = 352
  end
  object dcmMzconfig: TDCOMConnection
    ServerGUID = '{6E46AFDF-88F6-4B3D-A53F-970DD90D1075}'
    ServerName = 'mzsf_dll_data.mz_config'
    Left = 224
    Top = 16
  end
end
